!round_frame  /modified 2/16/94***VL/
!internal macro: -

!dx=a,dy=b,frame width=c,
!frame thickness=d,grid width=z,resolution
r=f
z=e
e=a/2
f=b/2
g=a/2-c
h=b/2-c
i=g-z
j=h-z

addy b/2

s=360/r

for w= s to 360 step s
11:   Put e*cos(w), f*sin(w), 13
next w
for w= s to 360 step s
12:  Put g*cos(w), h*sin(w), 13+64
next w

prism_  4+nsp/3,d,
        e,0,13,
        get(nsp/2),        !!! buffer 11-frame outline
        e,0,-1,
        g,0,13,
        use(nsp),           !!! buffer12-hole contour kept for internal frame outline
   g,0,-1

for w= s to 360 step s
13:   Put i*cos(w), j*sin(w), 13+64
next w

addz d/4
prism_  4+nsp/3,d/2,
   g,0,13,
   get(nsp/2),            !!! buffer 12-the same parameters as for the hole contour   
   g,0,-1,
   i,0,13,
   get(nsp),
   i,0,-1

end


